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! file: COBSWITCH.B32 €ED1IT:LGB1006 


MODULE COBSSWITCH( 
we = '1-006' 


BEGIN 

' 

pana eter agemgenanpent one er ge ree, 
'@ 

‘# COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'e DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 

- ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
t® ONLY IN ACCORDANCE WITH TH OF SUCH LICENSE AND WITH THE 
'@ INCLUSION OF TH I VE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
t® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
te OTHER SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
. on pokey ihe. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'# DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
© 
® 
® 
& 
® 
® 
* 
® 
' ® 
ie TRANSFERRED. * 
® 
® 
® 
® 
® 
& 
® 
® 
PTTITITITITITILIIIL LLL LLL LILI TLL LitiLiliiiiiiiiiiiiiiiiitii iii 
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ise 
i FACILITY: COBOL SUPPORT 
i 


ABSTRACT 
Reads switches 


i 

i 

i 

i 

i 
ENVIRONMENT: Vax-11 User Mode 

AUTHOR: MLJ , CREATION DATE: 16-JAN-79 

MODIFIED BY: 

i 1-001 - = Qciginal MLJ 16-JAN-79 

i 1. ¢ > Added boilerplate and comments. RKR 23-AUG-1979 

i = Change symbolic name of LIBRARY file. RKR 1-0CT-79 

i - - Cosemtic changes. RKR_ 18-OCT-79 

i 1-005 = Fix type tr K =0CT-79 

i 1-006 = Use logical oNnéc -NAMLENGTH instead of hard-coded value of 64. 
i 1-0CT-1983 
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1$-sep-1964 00:15:51 yaxett aLingc32_ v4 
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SWITCHES 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES 


LINKAGE 
| L-= JSB : GLOBAL(PTR=2, CNT=3, D1G=4); 


TABLE OF CONTENTS: 
FORWARD ROUTINE 

GET_DIGIT : L ; 
' INCLUDE FILES 


EQUIRE 'RTLIN:RTLPSECT® ; 


' Macros to declare psects 
RARY ‘RTLSTARLE'; 


' 
! 

i 

R 

L 

' 

i MACROS 
NONE 

EQUATED SYMBOLS 
NONE 

PSECT DECLARATIONS: 


DECLARE _PSECTS (COB) ; ! Declare psects for COBS facility 


ifn o82;1 
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GLOBAL ROUTINE COBSSWITCH(NUMBER)= 


iee 


FUNCTIONAL DESCRIPTION 


See C79RTLREQ for specification 


FORMAL PARAMETERS: 


IMPLICIT INPUTS: 


Logical name table 


IMPLICIT OUTPUTS: 


tia | VALUE : 


uccess 
0 Failure 


COMPLETION CODES: 


SIDE EFFECTS: 


BUFFER: 

BUFDESC: VEC ! Descriptor jor 

Sete’ VECTOR ! Descriptor for logical name 

LENGTH D; i Length of equivalence string 
a GISTER 


CNT=3, DIG=4; 


vECTOREGYS -NAMLENGTH, BYTE). ! Returned saulystence string 


Set up descriptors 


' 
BUF DESC FFE R; 
i eee 


sa = LNMSC_NAMLENGTH; 
= 
G 
NAMDESEES = UPLIT(* COBSSWITCHES*); eee 


IF NOT STRNLOG( Translate COBSSWITCHES 
THEN OGNAM=NAMDESC, RSLLEN=LENGTH, RSLBUF =BUEDESS) 
RETURN 0; 


PTR = BUFFER; ! Set up global registers 


4.0-74 


ITCH.B 


2;1 


5 

i nial 1Sgeentge OO:15:6) YAGI OLsagc82 wes Oo742 pees 
; CNT = .LENGTH; ! — 
WHILE GIN LOCAL VAL; 

: 

i Skip Leading non-digits 

WHILE CIF .CNT GTR O THEN NOT GET_DIGIT() ELSE RETURN 0) DO 0; 

Remember first digit 


IIR ae 
NO 


VAL = .DIG; 
¢ Scan over digits to next non-digit, computing value in VAL 

eg WHILE (IF .CNT GTR O THEN GET_DIGIT() ELSE 0) DO VAL = .VAL * 10 + .DIG; 
es i Check VAL against desired switch 

19 6 if .VAL EQL .NUMBER THEN RETURN 1; 

i END; 

is és RETURN 0; 

75 a END; 


-TITLE pe # +f deat 
IDE \1-006\ 
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* IDENT 
-PSECT _COBSCODE.NOWRT, SHR, PIC,2 
53 45 48 463 54 49 57 53 26 42 4F 43 00000 P.AAA: .ASCII \COBSSWITCHES\ : 
.EXTRN SYSSTRNLOG 
E FEEC ce 9€ 3 MOVAB 33 g(sp) SP : 
of AE FF OS gh MOVZBL #255, BUFDESC ; 
AE 16 AE 5 MOVAB aur Fer BUF DESC +4 ; 
04 oC 06 VL_ #12, NAMDESC 3 
8 AE pc oF 0 MOVAB P.AAA, NAMDESC+4 ; 
E a CLRQ = SP) ; 
E C CLRL = (SP) ; 
18 AE OF c PUSHAB ®BUFDESC ; 
18 ME OOF PUSHAS HAMBESC 
000000006 O6 FB ; CALLS a6, SYSSTRNLOG : 
BLBC =—«_«aRO. SS : 
14 ‘ MOVAB BUFFER, PTR : 
MOVZWL LENGTH. CNT : 
1$: TSTL NT ; 
{ BLEG $ ; 
0060v C BSBu GET DIGIT : 
F6 é F BiBC —E>.:—s«wRO, : 


tt sia if see 1986 93:10:89 Eder. °sneScoasulten-es2;1 ne 
- i fa. ft Bem : 84 
: 0000v | 9 SBW ibe pit 
a 8 a 


6. VAL, RO 
ADDL * RO, VAL 


938: CHL i NUMBER 0262 
F MOVL 1, RO : 

50 ee 4 4$: ae RO : 0267 
; Routine Size: 102 bytes, Routine Base: _COBSCODE + 000C 


: iy 0568 1 S<BLF/PAGE> 


& £4 °F 1A tA TF ewes 6 


] 
? 
1 
3 
4 
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: } ROUTINE GET_DIGIT: Le 

; i i it FUNCTIONAL DESCRIPTION 

a 

st , | i Get next character from string, returning: 

: ; } ca 8 jj --—-5 te next character 

: 4 ; ii sie sentetnine the chorocter less %C'0' 

; ; : Value true if and only the character was a digit 
3 i 

. % § i i FORMAL PARAMETERS: 

3 13 : 

; 194 5 1! IMPLICIT INPUTS: 

3 13? : 

; 199 3 8 1 i es 

FY 138 1 i IMPLICIT OUTPUTS: 

3 3 90 1! 

: $00 3 Yi — 

; : 38 1! ROUTINE VALUE: 

: 04 3¢ 1 COMPLETION CODES: 

3 205 1 NONE 

3 5] 39 1! 

i 07 98 1 SIDE EFFECTS: 

3 209 1 NONE 

3 bi 

: 21 1 

3 ig BEGIN 

3 14 5 EXTERNAL REGISTER 

3 1g PTR, CNT, DIG; 

; 1 VAL; 

3 1 

3 8 VAL = 0; ' Assume false value 
; 220 DIG = » { PTR) <0,8>3 i Fetch character 
: 1 PTR = PTR + ! Advance pointer 
3 § CNT = .CNT = 13 } Decrement count 
; DIG = .DIG = 2£C'0'; i Bias character 

$ & IF .D1G LEQU 9 THEN VAL = .VAL + 1; ' Set true value if need be 
: ; sat ' Return the value 


50 D4 00000 GET =PIGIT: 


s gga gone = RNOL {Rme, 16 i § 


copsswitcn 


yb-se0rtges 00:15:5)  yantt alias 82 veegarag, Page 07 
38 sate ote. bie : ose 
a: : 1$: ti h ; 


; Routine Size: 18 bytes, Routine Base: _COBSCODE + we 


227 0318 0 END ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
_COBSCODE 132 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


woccece Symbols -------- Pages Processing 
File Total ioaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 4 0 581 00:00.7 


COMMAND QUALIFIERS 
FL ESS/CHECE MEF FELD, SME TEAL OPTINI ZED AUDTANCEAL 154 188s COBSNI TENORS =OBIS 2 CORSE TEN MSRC$: COBSW1 TCH/UPDATE=(ENHS$: COBSWITCH 


size: . vi + 12 data bytes 
Run i 


20811 


AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


DIG 
CON 


= 
VAX/VMS V4.0 I 


I 
= 


™ AH-BT13A-SE 


